home *** CD-ROM | disk | FTP | other *** search
/ Kyoko 8203 / Kyoko 8203.iso / pc / clip.dxr / 00027_ÉrÉfÉIëOå„.ls < prev    next >
Encoding:
Text File  |  2003-03-10  |  1.9 KB  |  67 lines
  1. global page, maxvideo, minvideo, videonumber
  2.  
  3. on mouseWithin me
  4.   mynumber = me.spriteNum
  5.   case mynumber of
  6.     44:
  7.       repeat with i = 28 to 28 + videonumber - 1
  8.         set the locH of sprite i to the locH of sprite i + 3
  9.         if the locH of sprite i > (minvideo + ((i - 28) * 134)) then
  10.           set the locH of sprite i to minvideo + ((i - 28) * 134)
  11.         end if
  12.       end repeat
  13.     45:
  14.       repeat with i = 28 to 28 + videonumber - 1
  15.         set the locH of sprite i to the locH of sprite i - 3
  16.         if the locH of sprite i < (maxvideo + ((i - 28) * 134)) then
  17.           set the locH of sprite i to maxvideo + ((i - 28) * 134)
  18.         end if
  19.       end repeat
  20.   end case
  21. end
  22.  
  23. on mouseUp me
  24.   mynumber = me.spriteNum
  25.   case mynumber of
  26.     44:
  27.       repeat while the locH of sprite 28 <= (minvideo - 2)
  28.         put the locH of sprite 28
  29.         repeat with i = 28 to 28 + videonumber - 1
  30.           adjust = (minvideo + ((i - 28) * 134) - the locH of sprite i) / 4
  31.           if adjust = 0 then
  32.             adjust = 1
  33.           end if
  34.           set the locH of sprite i to the locH of sprite i + adjust
  35.         end repeat
  36.         updateStage()
  37.       end repeat
  38.       repeat with i = 28 to 28 + videonumber - 1
  39.         set the locH of sprite i to minvideo + ((i - 28) * 134)
  40.       end repeat
  41.       updateStage()
  42.     45:
  43.       repeat while the locH of sprite 28 >= (maxvideo + 2)
  44.         repeat with i = 28 to 28 + videonumber - 1
  45.           adjust = (maxvideo + ((i - 28) * 134) - the locH of sprite i) / 4
  46.           if adjust = 0 then
  47.             adjust = -1
  48.           end if
  49.           set the locH of sprite i to the locH of sprite i + adjust
  50.         end repeat
  51.         updateStage()
  52.       end repeat
  53.       repeat with i = 28 to 28 + videonumber - 1
  54.         set the locH of sprite i to maxvideo + ((i - 28) * 134)
  55.       end repeat
  56.       updateStage()
  57.   end case
  58. end
  59.  
  60. on mouseEnter me
  61.   cursor([1, 2])
  62. end
  63.  
  64. on mouseLeave me
  65.   cursor(0)
  66. end
  67.